<%'Dynamic Link set Project_InformationRecordSet = CreateObject("ADODB.RecordSet") Project_InformationRecordSet.Open "select * from projects", ConnectString("Magazine") set Project_Information = WrapRecordSet(Project_InformationRecordSet, "ID") Project_Information.Move GetRecordIndex() - 1 %><%'Dynamic Link set Status_ListRecordSet = CreateObject("ADODB.RecordSet") Status_ListRecordSet.Open "select * from StatusOptions order by ListingOrder", ConnectString("Magazine") set Status_List = WrapRecordSet(Status_ListRecordSet, "ProjectStatus") %><%'Dynamic Link set Author_ListRecordSet = CreateObject("ADODB.RecordSet") Author_ListRecordSet.Open "select * from Authors order by ProjectAuthor", ConnectString("Magazine") set Author_List = WrapRecordSet(Author_ListRecordSet, "ProjectAuthor") %>
ID <%=Project_Information.Value("ID")%>
Project
Status <% Status_List.MoveFirst %> <% while not Status_List.EOF %> <% Status_List.MoveNext %> <% wend %>
><%=Status_List.Value("ProjectStatus")%>
Assigned
Due Date

> > >

| ><< FIRST | ><- PREVIOUS | >NEXT -> | >LAST >> | <%=Project_Information.AbsolutePosition%> of <%=Project_Information.RecordCount%>

<% if 0 then %> <% end if %>